"
response.write "Oops! You have to check a "
response.write "box for this to work!"
response.write "
Please hit your Back"
response.write " button and try again."
response.end
End If
set rs = nothing
ID = request.form("ID")
UserID = request.form("UserID")
Password = request.form("Password")
set conn = server.createobject("adodb.connection")
' AS ABOVE, change path to guestbook if needed or delete
' the dsn-less connection and use a DSN
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("/guestbook.mdb")
conn.Open DSNtemp
For each record in request("ID")
sqlstmt = "DELETE * from Guestbook WHERE ID=" & record
Set RS = conn.execute(sqlstmt)
Next
If err.number>0 then
response.write "VBScript Errors Occured:" & ""
response.write "Error Number=" & err.number & "
"
response.write "Error Descr.=" & err.description & "
"
response.write "Help Context=" & err.helpcontext & "
"
response.write "Help Path=" & err.helppath & "
"
response.write "Native Error=" & err.nativeerror & "
"
response.write "Source=" & err.source & "
"
response.write "SQLState=" & err.sqlstate & "
"
end if
IF conn.errors.count> 0 then
response.write "Database Errors Occured" & "
"
response.write SQLstmt & "
"
for counter= 0 to conn.errors.count
response.write "Error #" & conn.errors(counter).number & "
"
response.write "Error desc. -> " & conn.errors(counter).description & "
"
next
else
response.write ""
response.write "The record has been deleted."
response.write "
"
end if
End Select
set rs = nothing
set conn = nothing
%>